9 REM LO BYTE INTERRUPT ANFANG
10 LETL=00
19 REM HI BYTE INTERRUPT ANFANG
20 LETH=128
30 LETA=H*256
40 LETA=A+L
50 LETB=A
60 LETC=PEEK(B)
70 IFC<32THEN190
80 IFC>32THEN190
90 LETC=B+1
100 LETC=PEEK(C)
110 IFC<49THEN190
120 IFC>49THEN190
130 LETC=B+2
140 LETC=PEEK(C)
150 IFC<234THEN190
160 IFC>234THEN190
170 POKEB,76
180 GOTO210
190 LETB=B+1
200 GOTO60
210 LETA=24696
220 SYS828
230 POKE788,L
240 POKE789,H
250 LETA=24664
260 SYS828